home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson3 / Lesson3.dcr / 00152_menu Delete itemize (flicker-select).ls < prev    next >
Encoding:
Text File  |  2001-11-20  |  2.9 KB  |  81 lines
  1. property PropMenuName, ListBackSprite, spriteNum
  2. global immutableItems, mutableItems, listItemNumber, listItemCount, menuName, menuLock, sShade, sDrop, menustate, flicker
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #PropMenuName, [#default: EMPTY, #format: #string, #comment: "Menu Name:"])
  7.   addProp(description, #ListBackSprite, [#default: -1, #format: #number, #comment: "List background Sprite:"])
  8.   return description
  9. end
  10.  
  11. on mouseEnter me
  12.   if (menuLock <> EMPTY) and (menuName = PropMenuName) and (listItemNumber >= immutableItems.count) then
  13.     sprite(spriteNum - 1).locH = sprite(spriteNum).left
  14.     sprite(spriteNum - 1).locV = sprite(spriteNum).top
  15.   end if
  16. end
  17.  
  18. on mouseLeave me
  19.   sprite(spriteNum - 1).locV = 0 - sprite(spriteNum - 1).height
  20. end
  21.  
  22. on mouseDown me
  23.   if (menuLock <> EMPTY) and (menuName = PropMenuName) and (listItemNumber >= immutableItems.count) then
  24.     menustate = 5
  25.     flicker = 0
  26.   end if
  27. end
  28.  
  29. on exitFrame me
  30.   if menustate = 5 then
  31.     if sprite(spriteNum - 1).locV < 0 then
  32.       sprite(spriteNum - 1).locH = sprite(spriteNum).left
  33.       sprite(spriteNum - 1).locV = sprite(spriteNum).top
  34.     else
  35.       sprite(spriteNum - 1).locV = 0 - sprite(spriteNum - 1).height
  36.     end if
  37.     flicker = flicker + 1
  38.     if flicker > 4 then
  39.       menustate = 0
  40.       sprite(sShade).locV = 0 - sprite(sShade).height
  41.       sprite(sDrop).locV = 0 - sprite(sDrop).height
  42.       induhvidual = listItemNumber - immutableItems.count + 1
  43.       deleteAt(mutableItems, induhvidual)
  44.       writeItemListData()
  45.       sendSprite(ListBackSprite, #deselectList)
  46.       listItemCount = 0
  47.       nom = EMPTY
  48.       desc = EMPTY
  49.       itype = EMPTY
  50.       acc = EMPTY
  51.       hand = EMPTY
  52.       price = EMPTY
  53.       repeat with i = 1 to immutableItems.count
  54.         nom = nom & immutableItems[i].ItemName & RETURN
  55.         desc = desc & immutableItems[i].Desc2 & RETURN
  56.         itype = itype & immutableItems[i].ItemType & RETURN
  57.         acc = acc & immutableItems[i].Account2 & RETURN
  58.         hand = hand & immutableItems[i].Qty3 & RETURN
  59.         price = price & immutableItems[i].Money2 & RETURN
  60.         listItemCount = listItemCount + 1
  61.       end repeat
  62.       repeat with i = 1 to mutableItems.count
  63.         nom = nom & mutableItems[i].ItemName & RETURN
  64.         desc = desc & mutableItems[i].Desc2 & RETURN
  65.         itype = itype & mutableItems[i].ItemType & RETURN
  66.         acc = acc & mutableItems[i].Account2 & RETURN
  67.         hand = hand & mutableItems[i].Qty3 & RETURN
  68.         price = price & mutableItems[i].Money2 & RETURN
  69.         listItemCount = listItemCount + 1
  70.       end repeat
  71.       member("Item List names").text = nom
  72.       member("Item List description").text = desc
  73.       member("Item List type").text = itype
  74.       member("Item List account").text = acc
  75.       member("Item List on hand").text = hand
  76.       member("Item List price").text = price
  77.       menuLock = EMPTY
  78.     end if
  79.   end if
  80. end
  81.